﻿<#-- 
 
 crea una clase para c# para la tabla  ${table}...
 Author : Luis Molina...
 
 -->
<#-- variables used internally by the generator... -->
<#assign nameFile="aspx">
<#assign extensionFile="cs">
<#assign languageGenerated="c#">
<#assign description="c#">
<#assign targetDirectory="clases">
<#assign appliesToAllTables="true">
<#-- END variables used internally by the generator... -->
 
<%@ Page Language="C#" MasterPageFile="~/plantilla/plantilla.master" AutoEventWireup="false" CodeFile="detalle_aspx_${table}.cs" Inherits="detalle_${table}" title="${table}" %>
<asp:Content ID="Content1" ContentPlaceHolderID="Contentplaceholder2" Runat="Server">
    &nbsp;<asp:TreeView ID="TreeView1" runat="server" ImageSet="Arrows">
        <ParentNodeStyle Font-Bold="False" />
        <HoverNodeStyle Font-Underline="True" ForeColor="#5555DD" />
        <SelectedNodeStyle Font-Underline="True" ForeColor="#5555DD" HorizontalPadding="0px"
            VerticalPadding="0px" />
        <Nodes>
            <asp:TreeNode NavigateUrl="./listado_${table}.aspx" Text="Listado" Value="Listado">
            </asp:TreeNode>
            <asp:TreeNode NavigateUrl="./insertar_${table}.aspx" Text="Insertar ${table}" Value="Insertar ${table}">
            </asp:TreeNode>
        </Nodes>
        <NodeStyle Font-Names="Verdana" Font-Size="8pt" ForeColor="Black" HorizontalPadding="5px"
            NodeSpacing="0px" VerticalPadding="0px" />
    </asp:TreeView>

</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
 &nbsp;
 	    <!--subseccion 1-->
					    <div class="subseccion">
					    <div class="titSubseccion">
					      <h3 class="itemh3">
                              Añadir/Modificar <%=tablaActual.nombre %></h3>
					    </div>
    					
					    <% 
    for each campox as campo in tablaActual.campos
		    contador+=1
    		
					            If campox.seleccionado And Not campox.isKey Then
        		
					                Select Case campox.tipo
					                    Case dataTypes.dataType.fecha, dataTypes.dataType.fechaLarga
            					                  
					                        Dim cadena As New StringBuilder
					                        cadena.Append("<div class=""lineaForm"">")
					                        cadena.Append("	<label for=""" &  campox.nombre  & """>")
					                        cadena.Append("	<span class=""etiqueta"">" &  campox.nombre  & "<span class=""asterisco"">*</span></span>")
					                        cadena.Append("	<span class=""zonacampo"">")
					                        cadena.Append("     <asp:TextBox ID=""" &  campox.nombre  & """ runat=""server""></asp:TextBox>")
					                        cadena.Append("  </span>")
					                        cadena.Append("  </label>")
					                        cadena.Append("</div>")
					                        Response.Write(cadena.ToString())
					                        cadena = Nothing

    			                     
					                    Case dataTypes.dataType.imagen
					                        Dim cadenaImg As New StringBuilder

					                        cadenaImg.Append("<div class=""lineaForm"">")
					                        cadenaImg.Append("	<span class=""etiqueta"">" & campox.nombre & "<span class=""asterisco"">*</span></span>")
					                        cadenaImg.Append("  <asp:Image ID=""img" & campox.nombre & """ runat=""server"" Visible=""False"" Width=""40px"" />")
                                            cadenaImg.Append("   <asp:Button ID=""but" & campox.nombre & """ runat=""server"" CssClass=""btn"" OnClick=""btnborrarimagen_Click""  Text=""Borrar " & campox.nombre & """ Visible=""False"" /><span class=""zonacampo""><asp:FileUpload ID=""up" & campox.nombre & """ runat=""server"" Width=""328px"" CssClass=""textstandar"" /></span>"  ) 
                                            cadenaImg.Append("    <br />"  ) 
                                            cadenaImg.Append("   <br />"  ) 
                                            cadenaImg.Append("</div>        ")                 
		                                   Response.Write(cadenaImg.ToString())
                                         cadenaImg=nothing
    			                            
                            Case dataTypes.dataType.texto
                                            Select Case campox.lenght
                                        Case Is > 250
		                                       
					                                Dim cadena2 As New StringBuilder
					                                cadena2.Append("<div class=""lineaForm"">")
					                                cadena2.Append("	<label for=""" &  campox.nombre  & """>")
					                                cadena2.Append("	<span class=""etiqueta"">" &  campox.nombre  & "<span class=""asterisco"">*</span></span>")
					                                cadena2.Append("	<span class=""zonacampo"">")
					                                cadena2.Append("     <asp:TextBox ID=""" &  campox.nombre  & """ runat=""server""></asp:TextBox>")
					                                cadena2.Append("  </span>")
					                                cadena2.Append("  </label>")
					                                cadena2.Append("</div>")
					                                Response.Write(cadena2.ToString())
					                                cadena2 = Nothing

			 
			                                  
		                                    Case Else
					                                Dim cadena3 As New StringBuilder
					                                cadena3.Append("<div class=""lineaForm"">")
					                                cadena3.Append("	<label for=""" &  campox.nombre  & """>")
					                                cadena3.Append("	<span class=""etiqueta"">" &  campox.nombre  & "<span class=""asterisco"">*</span></span>")
					                                cadena3.Append("	<span class=""zonacampo"">")
					                                cadena3.Append("     <asp:TextBox ID=""" &  campox.nombre  & """ runat=""server""></asp:TextBox>")
					                                cadena3.Append("  </span>")
					                                cadena3.Append("  </label>")
					                                cadena3.Append("</div>")
					                                Response.Write(cadena3.ToString())
					                                cadena3 = Nothing
		                                End Select
			                            
		                            Case Else
		                               Dim cadena4 As New StringBuilder
					                                cadena4.Append("<div class=""lineaForm"">")
					                                cadena4.Append("	<label for=""" &  campox.nombre  & """>")
					                                cadena4.Append("	<span class=""etiqueta"">" &  campox.nombre  & "<span class=""asterisco"">*</span></span>")
					                                cadena4.Append("	<span class=""zonacampo"">")
					                                cadena4.Append("     <asp:TextBox ID=""" &  campox.nombre  & """ runat=""server""></asp:TextBox>")
					                                cadena4.Append("  </span>")
					                                cadena4.Append("  </label>")
					                                cadena4.Append("</div>")
					                                Response.Write(cadena4.ToString())
					                                cadena4 = Nothing
        
                                End Select
end if
next

					        
					        Dim cadenaFinal As New StringBuilder
					        cadenaFinal.Append("<label><asp:Label ID=""lblinfo"" runat=""server"" Text=""""></asp:Label></label>")
					        cadenaFinal.Append("  </div>")
					        cadenaFinal.Append("  <!--subsecciones-->")
					        cadenaFinal.Append("  <div class=""botonesSub"">(*) Todos los datos correspondientes a los campos de este formulario que queden sin rellenar, se completaran automaticamente con otros datos de tipo estándar</div>")
					        cadenaFinal.Append("  <hr class=""hidden"" />")
					        cadenaFinal.Append("  <!--botones formulario-->")
					        cadenaFinal.Append("  <div class=""botonesSub"">")
					        cadenaFinal.Append("  <span>")
					        cadenaFinal.Append("    <asp:Button ID=""btnInsertar""  CssClass=""aceptar"" runat=""server"" Text=""Insertar"" OnClick=""btnInsertar_Click"" />")
					        cadenaFinal.Append("  </span>")
					        cadenaFinal.Append("<span>")
					        cadenaFinal.Append("    <asp:Button ID=""btnDenegar"" runat=""server"" CssClass=""denegar"" Text=""Denegar"" />")
					        cadenaFinal.Append("    </span>")
					        cadenaFinal.Append("  </div>")
					        cadenaFinal.Append("  <!--botones formulario-->")
					        Response.Write(cadenaFinal.ToString())
					        cadenaFinal = Nothing
					        %>
    <asp:Button ID="Button1" runat="server" Text="Modificar" />

</asp:Content>

